Option Explicit
Sub B_Sample023()
    Dim myRng As Range
    Set myRng = Range("A1")		'Nxs
    MsgBox myRng.MergeCells
    Set myRng = Nothing			'
End Sub
